51
range
m:
    square
    itemize
            dup
            sqrt
            range1
                square
                -
                dup
                @0
            m4
        m5
        flatten
    b3
    2
    times #(eval)
        sqrt
        double
        inc
    m3
    sum
    show-line