alias bar {
  if ($1 == 10) { return 14[12 $+ 12 $+ $str(,10) $+ 14] | halt }
  if ($1 == 0) { return 14[12 $+ 14 $+ $str(,10) $+ 14] | halt }
  var %1 = $iif($1 == 0,1,$1)
  var %2 = $calc(10 - $1)
  var %c1 = 1
  var %c2 = 1
  var %b1 = 
  var %b2 = 
  while (%c1 != %1) {
    var %b1 = %b1 $+ 
    inc %c1
  }
  while (%c2 != %2) {
    var %b2 = %b2 $+ 
    inc %c2
  }
  return 14[12 $+ %b1 $+ 14 $+ %b2 $+ 14]
}