(de rot13-stdIn ()
   (while (line)
      (prinl (mapcar rot13-Ch @)) ) )