added P08.hs