Create Q1.hs