Create p41.hs