#include prelude.puf


// Let-expressions and scoping.

oct g x = let g = twice g;
              g = twice g;
          in g (g x);

main = oct I 4;