movesToString :: [Move] -> String
movesToString moves = movesToStringInner moves "000000000"
movesToString :: [Move] -> String
movesToString moves = movesToStringInner moves "000000000"
movesToString moves = movesToStringInner moves "000000000"