По следам Гарри Поттера...

Sumo 13.04.2010 22:01 / 13.04.2010 22:24

@main[]
  $h[^hash::create[]]
  ^for[i](1;2){
    ^for[k](1;3){
      ^for[n](1;4){
        $v1[level1_$i]
        $v2[level2_$k]
        $v3[level3_$n]
        $h[$h $.[$v1][$h.[$v1] $.[$v2][$h.[$v1].[$v2] $.[$v3][value-${i}-${k}-${n}]]]]
      }                                                  
    }                                                   
  }                                                      
  ^printHash[$h]                                         

@printHash[hsh][k;v]
  <ul>
  ^hsh.foreach[k;v]{
    <li>
    ^if($v is hash){
       ${k}
       ^printHash[$v]
    }{
      $k -> $v
     }
    </li>  
  }
  </ul>