read-num
save-a
2
/
" "
times #(list)
save-b
( " \\ /\n" )
push-b
right-uncons
pop
( "-->*<--\n" )
push-b
( " /_\\\n" )
{
    save-c
    2
    /
    push-b
    length
    swap
    -
    " "
    times #(list)
    ( "/_" )
    push-c
    dup
    dec
    2
    /
    -
    w( "/_" "\\_" )
    push-c
    2
    %
    get
    times #(list)
    ( "\\\n" )
}
push-a
range1
map
push-b
( "[___]" )