Create p13.hs