@macro @inline ($) :: (a -> b) -> a -> b f $ x = f x justExecute :: (() -> a) -> a justExecute f = f () main :: Integer main = justExecute $ \() -> (13 :: Integer) -- 13