Feu una funció @main :: IO ()@ que:
obtingui les dades de l’entrada estàndar, on hi hagi en cada linia un enter o un símbol @+@,
processi l’entrada amb les funcions @eval2 :: String -> State [Maybe Int] (Maybe Int)@ i @foldState :: (a -> State t b) -> [a] -> t -> b@ del problema Combinació de mònades 1 i,
mostri el resultat per la sortida estàndar.
Aquest exercici és la segona part d’un problema més gran. Per realitzar-lo heu de partir del codi de la primera part i ampliar-lo.
Input
1 2 + 3 +
Output
Just 6
Input
1 2 + 3
Output
Nothing