Create p16.hs