-- Here is a funktion that computes the square ov its argument. It's not a
-- very complicated funktion.

sqr :: Int -> Int
sqr x = x*x