main::IO()
main = do
    header
    putStrLn fromInteger $ calculate(Add (Number 1) (Subtract (Number 10) (Number 3)))
main::IO()
main = do
    header
    putStrLn fromInteger $ calculate(Add (Number 1) (Subtract (Number 10) (Number 3)))
main = do
    header
    putStrLn fromInteger $ calculate(Add (Number 1) (Subtract (Number 10) (Number 3)))