-- Ask temperature in Celsius then convert to Fahrenheit

temperatureFahrenheit temperatureCelsius = 32 + temperatureCelsius * 9 / 5

main = do
    putStrLn "What temperature in Celsius?"
    c <- getLine
    let temperatureCelsius = c :: Int
    result <- temperatureFahrenheit temperatureCelsius
    putStrLn ("It's " ++ result ++ " in Fahrenheit")