Task

Create a Thue-Morse sequence.



See also
   YouTube entry: The Fairest Sharing Sequence Ever
   YouTube entry: Math and OCD - My story with the Thue-Morse sequence
   Task: Fairshare between two and more


def inverte
	dup len	
	for
		var i
		i get not i set
	endfor
enddef
 
0 1 tolist
8 for
    .
    dup print nl nl
    inverte chain
endfor