proc p -> ... (|runReader cmd|) env
runReader a ask = pure a
runReader a (pure b) = pure b
runReader a (local f m) = runReader (f a) m