Unnamed

alias code {
  var %alpha = a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z
  var %a = 0
  var %w = 0
  while (%w < $0) {
    inc %w 1
    while (%a < $len($gettok($1-,%w,32))) {
      inc %a 1
      var %line = %line $+ $gettok(%alpha,$calc($findtok(%alpha,$mid($gettok($1-,%w,32),%a,1),1,58) + 1),58)
    }
    var %line = %line $+ $chr(58)
    var %a = 0
  }
  say $replace(%line,$chr(58),$chr(32))
}
alias decode {
  var %alpha = a:b:c:d:e:f:g:h:i:j:k:l:m:n:o:p:q:r:s:t:u:v:w:x:y:z
  var %a = 0
  var %w = 0
  while (%w < $0) {
    inc %w 1
    while (%a < $len($gettok($1-,%w,32))) {
      inc %a 1
      var %line = %line $+ $gettok(%alpha,$calc($findtok(%alpha,$mid($gettok($1-,%w,32),%a,1),1,58) - 1),58)
    }
    var %line = %line $+ $chr(58)
    var %a = 0
  }
  say $replace(%line,$chr(58),$chr(32))
}