Use this snippet to parse any line-delimited user input into a list of a specified type

Universal_Input.hs

{-
  If you want to read in Strings: getInputLinesWith id n
  if you want to read in Ints: getInputLinesWith read n :: IO [Int]
    where n is how many lines to take input from
-}
getInputLinesWith :: (String -> a) -> Int -> IO [a]
getInputLinesWith f n = fmap (map f) (replicateM n getLine)