set n -$in$-
set cnt<0> 1
set cnt<1> 1

set i 2
while $i * $i <= $n
    set j 2
    while $i * $j <= $n
        set x $i * $j
        set cnt<$x> 1
        set j $j + 1
    end
    set i $i + 1
end

set i 2
while $i <= $n
    if $cnt<$i> == 0
        out $i
    end
    set i $i + 1
end