alias db { 
  if $1 { $iif(!$window(@d),window -fen @d verdana 9,echo @d $1-) 
    tokenize 32 $1- 
    if ($1 = <- && $3 = MODE && $remove($token($2,1,33),:) ison $4) {
      noop $regex($5-,/[+-]([qaohv+-]*)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)($|\s(\S+)?)/)
      var %a = 1,%w = $mid($5,1,1),%d = 1
      set -l %l
      while %a <= $len($regml(1)) {
        if $istok(+ -,$mid($regml(1),%a,1),32) {
          var %w $mid($regml(1),%a,1)
          inc %a
        }
        var %c $mid($regml($calc(%d * 2)),2,400)
        inc %d 1
        var %l $addtok(%l,$+(%w,$mid($regml(1),%a,1),,%c),32)
        inc %a
      }
      tokenize 32 $replace(%l,+q,.,+a,&,+o,@,+h,%,+v,+,-q,$null,-a,$null,-o,$null,-h,$null,-v,$null)
      echo -a $*
    }
  }
    else  debug -i d db 
}