if ($1 isin %abrv) { say $replace($1-,$1,$gettok(%abrv,$calc($findtok(%abrv,$gettok(%abrv,$findtok(%abrv,$1,44),44),44) +1),44)) | haltdef }
Gulp