SOURCE ^stdlib.bfm

def in char
in $in
while {!: $in $EOF} {
  if {expr ($in > 'a') && ($in < 'Z')} {
    -= $i 'a'
    %= $i 13
    += $i 'a'
  }
  out $i
  in $i
}