Update Main.hs

Added primitives