1024 [ cr &putn sip 2 / dup ] while