«Ну вы, блин, даете»...

Sumo 27.09.2015 20:47

@main[]
$hsh[
     $.a[A]
     $.b[
          $.1[B1]
          $.2[B2]
          $.3[$.6[b5] $.7[b8]]
     ]
     $.c[C]
]
^h2q[$hsh]


@h2q[aData;aPrefix][locals]
  $result[^aData.foreach[k;v]{^if($v is hash){^h2q[$v;${aPrefix}${k}.]}{${aPrefix}$k=$v}}[&]]