w( " /\\" "/__\\" )
swap
read-num
dec
{
    save-a
        push-a
        length
        space
        times #(list)
        swap
        catenate #(list+list)
    m6
    push-a
    {
        dup2
        dup
        47
        index
        take
        catenate #(list+list)
        swap
        catenate #(list+list)
    }
    map
    catenate #(list+list)
}
times #(eval)
unlines