movesToStringInner :: [Move] -> String -> String
movesToStringInner [] expression = expression
movesToStringInner :: [Move] -> String -> String
movesToStringInner [] expression = expression
movesToStringInner [] expression = expression