templates transpose
  def a: $;
  def n: $(1)::length;
  [ 1..$n -> $a(1..last; $) ] !
end transpose

[$x, $y, $z] -> transpose... -> '$...;
' -> !OUT::write