in line 91, do Just x <- GetInput | Nothig => do Display "Invalid input" Nothig -> Nothing
in line 91,
do Just x <- GetInput | Nothig => do Display "Invalid input"
Nothig -> Nothing