Create Queue.hs