alias abcd {
  %p = 1
  while (%p) {
    %s = $r(`,e)
    if ($regex(%s,\x61)) { 
      %n = %s
      %p =
    }
  }
  %p = 1
  while (%p) {
    %s = $r(`,e)
    if ($regex(%s,\x62)) { 
      %n = %n $+ %s
      %p =
    }
  }
  %p = 1
  while (%p) {
    %s = $r(`,e)
    if ($regex(%s,\x63)) { 
      %n = %n $+ %s
      %p =
    }
  }
  %p = 1
  while (%p) {
    %s = $r(`,e)
    if ($regex(%s,\x64)) { 
      %n = %n $+ %s
      return %n
    }
  }
}