# printf 10 | bruijn thue-morse.bruijn
# using tromp's solution, prints thue morse sequence
:import std/Combinator .
:import std/Logic .
:import std/String .
main [take (string→number 0) tm]
xpd z [[[[0 2 [0 [[5 0 1]] (2 4)]]]]]
tm z [xpd true (0 false)]