Как-то так

max_rip 25.12.2011 22:59 / 25.12.2011 23:00

$tOriginal[^table::create{name	val1	val2
fire	01	11
police	02	12
ambulance	03	13
gas	04	14
}]
$tFlip[^tOriginal.flip[]]
$tNew[
^table::create{^tOriginal.menu{$tOriginal.name}[^#09]
^tFlip.menu{^for[i](0;$tOriginal){^if(^tFlip.line[]!=1){$tFlip.$i}}[^#09]}[^#0A]
}
]
^use[debug.p]
^debug:print[$tNew]

fire	police	ambulance	gas
01	02	03	04
11	12	13	14