read-num
half
space
times #(list)
save-b
( " \\ /\n" )
push-b
tail
( "-->*<--\n" )
push-b
( " /_\\\n" )
@3
range1
m:
    half
    push-b
    drop
    ( "/_" )
    @0
    inc
    over
    ( "\\_" )
    pair
    @5
    odd
    get
    times #(list)
    "\\"
    new-line
}
push-b
( "[___]" )