+-- stringToSim :: [String] -> Simulation
+stringToSim strings =
+ _stringToSim st grid (initSimSpace w h)
+ where stripped = strings
+ w = maximum $ [(length s) | s <- stripped]
+ h = length stripped
+ grid = [(a,b) | a <- [0..(length stripped)-1], b <- [0..(length $ stripped !! a)-1]]
+ st = concat stripped
+
+_stringToSim st grid acc =
+ if null grid || null st then acc
+ else _stringToSim (tail st) (tail grid) next
+ where y = fst $ head grid -- not exactly sure why y and x got switched here
+ x = snd $ head grid
+ next = simSet acc (charToChunk $ head st) x y
+
+-- maps each chunktype to an ascii character