let file.reader (fn [name] (fn [] file.read name))

let write $ file.write :sample.txt
let read  $ file.reader :sample.txt

write :hello
print read

read $> string.upper $> write $> read $> print ;; HELLO
