T2497.hs:18:1: Warning: Defined but not used: `beq'