-- (c) Davor Babic <davor@davor.se>
square :: Integer -> Integer
square n = sum $ take n [n,n..]