add Queue.hs