intsFromStr :: String -> [Int]
intsFromStr input =
  map (\i -> read i ::Int) (words input)
intsFromStr :: String -> [Int]
intsFromStr input =
  map (\i -> read i ::Int) (words input)
intsFromStr input =
  map (\i -> read i ::Int) (words input)