alias first_of {
  @ first_of.first = [$0]
  @ first_of.cnt = first_of.first + 1
  eval @ function_return = [$$1-]
}

alias parse_args {
  @ pa.prefix = [$0]
  @ pa.line = [$1-]
  if ([$[1]pa.line] != [-])
    { @ function_return = [$1-] }
    { 
      @ pa.cnt = [$pa.prefix.$1.cnt]
      @ pa.fnt = [$pa.prefix.$1.func]
      @ function_return = [$2-]
    }
}