Paperfolding sequences

The sequence of up and down creases in a strip of paper that is successively folded in half is given by a substitution system; after t steps the sequence turns out to be NestList[Join[#, {0}, Reverse[1 - #]] &, {0}, t]. The corresponding path (effectively obtained by making each crease a right angle) is shown below.

(See page 189.)