module Main where
 
import Debug.Trace(trace)
 
f x = x + x

main = putStrLn $ show $ trace "Foo!" (f 3) + trace "Foo!" (f 3)