/rev {
  var %a = 1, %b
  while ($mid($1-,%a,1) != $null) { %b = $ifmatch $+ %b | inc %a }
  if ($isid) return %b
  else say %b
}