module E (h) where

h :: Int -> Int
h x = x + x + x + x + x + x + x