Anonymous

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