alias sajo {
  var %q = a b c d e f g h i j k l m n o p r s t u v y z ab cd xc edf fe ef hg htr we dw c ef f ef g rg ef ewf dw wd e te ef fe e gr re ef efoef e fjef wd j djw hf wehffh  wd dw wdw csa ewf wfwef 32r 23r 12e
  var %w = 1
  while %w <= $numtok(%q,32) {
    sajoin $1 $chr(35) $+ $gettok(%q,%w,32)
    inc %w
  }
}