calculateExpression :: IO ()
calculateExpression = do
    putStrLn "This program calculates the value of a^2 + 2b."
    putStrLn "Please enter the first real number (a):"
    inputA <- getLine
    putStrLn "Please enter the second real number (b):"
    inputB <- getLine
    let a = read inputA :: Double
    let b = read inputB :: Double
    let result = a**2 + 2 * b
    putStrLn ("The result of a^2 + 2b is: " ++ show result)

main :: IO ()
main = calculateExpression