问怎么才能把这个字符串列表转换成列表呢？

EN

",w84,w41,w56,w170,w56,w41,w84,/,,w24,w40,w17,w40,w48,,/ ,,,w16,w16,w16,,,/,,,,,,,,/,,,,,,,,/,,,,,,,,/,,,b1,b1,b1,,,/ ,,b3,b130,b17,b130,b129,,/,b69,b146,b131,b170,b131,b146,b69,"

[[Empty,Piece White 84,Piece White 41,Piece White 56,Piece White 170,Piece White 56,Piece White 41,Piece White 84,Empty],[Empty,Empty,Piece White 24,Piece White 40,Piece White 17,Piece White 40,Piece White 48,Empty,Empty],[Empty,Empty,Empty,Piece White 16,Piece White 16,Piece White 16,Empty,Empty,Empty],[Empty,Empty,Empty,Empty,Empty,Empty,Empty,Empty,Empty],[Empty,Empty,Empty,Empty,Empty,Empty,Empty,Empty,Empty],[Empty,Empty,Empty,Empty,Empty,Empty,Empty,Empty,Empty],[Empty,Empty,Empty,Piece Black 1,Piece Black 1,Piece Black 1,Empty,Empty,Empty],[Empty,Empty,Piece Black 3,Piece Black 130,Piece Black 17,Piece Black 130,Piece Black 129,Empty,Empty],[Empty,Piece Black 69,Piece Black 146,Piece Black 131,Piece Black 170,Piece Black 131,Piece Black 146,Piece Black 69,Empty]]

data Player = Black | White deriving Show
data Cell = Piece Player Int | Empty deriving Show
data Pos = Pos { col :: Char, row :: Int } deriving Show
type Board = [[Cell]]

buildBoard x =  rec(help3(wop(helper (replaceO x))))


wop (x:xs) = splitOn "/" (x:xs)

help3 (x:xs) = map (\x -> [x])(x:xs)

rec (x:xs) = map(\x -> [recH(x)])(x:xs)

recH (x:xs) = checkComma(x)

helper (x:y:xs) 
            |x == ',' && y == ',' = x:'E':'m':'p':'t':'y':helper(y:xs)
            |otherwise = x:helper (y:xs)
helper [] = []
helper [x] = [x]

checkComma (x:xs) = if head (x:xs) == ',' then checkComma('E':'m':'p':'t':'y':',':xs) else if last (x:xs) == ',' then reverse(turnAr(reverse(x:xs))) else (x:xs)

turnAr (x:xs) = 'y':'t':'p':'m':'E':',':xs

replaceO [] = []
replaceO (x:xs) = 
     if x == 'w' 
      then 'P':'i':'e':'c':'e':' ':'W':'h':'i':'t':'e':' ': replaceO xs 
     else if x == 'b'
      then 'P':'i':'e':'c':'e':' ':'B':'l':'a':'c':'k':' ': replaceO xs
     else if x == 'E'
      then 'E':'m':'p':'t':'y':' ': replaceO xs
     else x : replaceO xs