movesToMExp :: [Move] -> String
movesToMExp moves =
    let
        valuesList = valuesListToValue (movesToValuesList moves [])
    in
        toString valuesList
movesToMExp :: [Move] -> String
movesToMExp moves =
    let
        valuesList = valuesListToValue (movesToValuesList moves [])
    in
        toString valuesList
movesToMExp moves =
    let
        valuesList = valuesListToValue (movesToValuesList moves [])
    in
        toString valuesList