All pastes #895846 Raw Edit

pikhq

public text v1 · immutable
·published 2008-02-08 03:25 UTC
rendered paste body
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
}