fixed memory, added one primitive procedure