trianglesFromString :: String -> ([Int] -> [Triangle]) -> [Triangle]
trianglesFromString s fn =
  fn (intsFromStr s)
trianglesFromString :: String -> ([Int] -> [Triangle]) -> [Triangle]
trianglesFromString s fn =
  fn (intsFromStr s)
trianglesFromString s fn =
  fn (intsFromStr s)