mExpToMoves :: String -> [Move]
mExpToMoves expression =
    let
        list = getList (parse expression)
        moves = valuesListToMoves list []
    in
        moves
mExpToMoves :: String -> [Move]
mExpToMoves expression =
    let
        list = getList (parse expression)
        moves = valuesListToMoves list []
    in
        moves
mExpToMoves expression =
    let
        list = getList (parse expression)
        moves = valuesListToMoves list []
    in
        moves