Name: Anonymous 2013-03-11 20:18
instance (Num a) => Num [a] where
xs + ys = [x + y | x <- xs, y <- ys ]
xs * ys = [x * y | x <- xs, y <- ys ]
abs = map abs
signum = map signum
fromInteger x = [fromInteger x :: (Num a) => a]