jak_zlowic

jak_zlowic :: [Char] -> IO()
jak_zlowic x = if x == "okon"
                 then putStrLn "Okonia mozna zlowic za pomoca robaka w Jeziorze ..."
                else if x == "plotka" 
                 then putStrLn "Plotke mozna zlowic za pomoca innej ryby w Jeziorze..."
                else putStrLn "Brak danych"

main = do
  jak_zlowic "okon"
  jak_zlowic "plotka"
  jak_zlowic "krab"