Combinació de mònades 2 X30705

Feu una funció main :: IO () que:

1. obtingui les dades de l’entrada estàndar, on hi hagi en cada linia un enter o un símbol +,
2. 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,
3. mostri el resultat per la sortida estàndar.

Observació

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.