added b.hs