Create p20.hs