clock
1 1023 [dup +] times pop
clock swap -.