Create Q18.hs