Enrico Z. Borba
import Data.Char
one = id
for s l = map chr $ zipWith (+) l $ map ord s
all f o a = a [4, 14, -10] ++ f o [-65, -5, 10]
all for "one" $ one for "all"