#!/usr/bin/env runghc

getInt :: IO Int
getInt = do
    readLn :: IO Int

main :: IO ()
main = do
    putStr "Sisesta nr1: "
    val1 <- getInt
    putStr "Sisesta nr2: "
    val2 <- getInt
    putStr "Sisesta nr3: "
    val3 <- getInt
    putStr "Sisesta tehe (+ - * /): "
    cmd <- getLine

    putStr "Tulemus: "
    case cmd of
        "+" -> putStrLn $ (show (val1 + val2 + val3))
        "-" -> putStrLn $ (show (val1 - val2 - val3))
        "*" -> putStrLn $ (show (val1 * val2 * val3))
        "/" -> putStrLn $ (show (fromIntegral val1 / fromIntegral val2 / fromIntegral val3))
        _ -> putStrLn "Ei oska seda tehet teha!"