1f x y = g (x + y) 2 where 3 g z = z 4 {-# SCC g #-} 5{-# SCC f #-} 6 7withString x y = x + y 8{-# SCC withString "cost_centre_name" #-} 9 10withString' x y = x + y 11{-# SCC 12 withString' 13 "cost_centre_name" 14 #-} 15