primitives: dup over swap rot drop dolit nip