hsHello :: String -> IO Int
hsHello str = do
  putStrLn $ "Hello, " ++ str
  return (length str)
hsHello :: String -> IO Int
hsHello str = do
  putStrLn $ "Hello, " ++ str
  return (length str)
hsHello str = do
  putStrLn $ "Hello, " ++ str
  return (length str)