RosettaCodeData/Task/Multi-dimensional-array/Tcl/multi-dimensional-array-1.tcl

proc multilist {value args} {
    set res $value
    foreach dim [lreverse $args] {
        set res [lrepeat $dim $res]
    }
    return $res
}