fix Bfprim.hs: pattern match