../../Task/Input-loop/Haskell