256
range1
save-a
{
    dup
    last
    pop-b
    push-a
        push-b
        gcd
        dec
    f3
    or
    counter
    inc
    take
}
100
times #(eval)
init
unlines