added P33.hs