( @check 10 )

1 begin 1 + dup 10 = until print