on *:START:{ if ($hget(cens)) hfree cens | hmake cens | If ($exec(cens.txt)) hload -n cens cens.txt | else echo -a FILE NOT FOUND }

on *:INPUT:*:{
  tokenize 32 $1-
  var %v $hget(cens,0).item, %e $1-
  while (%v) { %e = $replace(%e,$hget(cens,%v).data,4<2censored4>) | dec %v }
  say %e
  halt
}