bar.hs: more tests