( 69420 - a variation on FizzBuzz... but with 69 and 420 )

: over swap dup rot rot ;
: rem over over / * - ;

1

begin
  dup 50<
while
  dup 15 rem 0 = if
    69420 .
  else
    dup 3 rem 0 = if
      69 .
    else
      dup 3 rem 0 = if
        420 .
      else
        dup .
      fi 
    fi
  fi
  1+
repeat