line-mode
read-num
{
    dup2
    push-a
    read-nums
        not
    b1
    1000
    copies
    catenate #(list+list)
    get
    negate
    -
}
64
times #(eval)