{ bl word 0 (create) } : create { swap ({) over 2+ -roll swap (compile) (}) } : does { 1 'nop does create } : constant 1 2 3 .s