1 2 3 4 5 6 7 8 9
{-# LANGUAGE RebindableSyntax #-} module RebindNegate where import Prelude ( length ) negate = length y = - "foo"