infixl 4 ++
infixl 5 **
(++) : [8] -> [8] -> [8]
x ++ y = x + y
(**) : {a} (Ring a) => a -> a -> a
x ** y = x * y
