module Main where

val :: Int
val = 23

main :: IO ()
main = putStrLn "I have {val} apples."