movesToMExpString :: [Move] -> String
movesToMExpString moves =
    let
        valuesList = movesToValuesList moves []
    in
        valuesToString valuesList ""
movesToMExpString :: [Move] -> String
movesToMExpString moves =
    let
        valuesList = movesToValuesList moves []
    in
        valuesToString valuesList ""
movesToMExpString moves =
    let
        valuesList = movesToValuesList moves []
    in
        valuesToString valuesList ""