Create Memory.hs