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