w( "\\__/" " \\/ " )
swap
read-num
dec
{
    dup
        2
        times #(list)
    m2
    swap
        dup
        length
        double
        center
    m4
    catenate #(list+list)
}
times #(eval)
enumerate
    extract-array
    drop
    reverse
m3
reverse
show-lines