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