printClass :: String -> String -> IO ()
printClass sent c = putStrLn $ " I believe '" ++ sent ++ "' belongs to: " ++ c
printClass :: String -> String -> IO ()
printClass sent c = putStrLn $ " I believe '" ++ sent ++ "' belongs to: " ++ c
printClass sent c = putStrLn $ " I believe '" ++ sent ++ "' belongs to: " ++ c