z=#(read)y=#ly:string-substitute
x=#format
#(x #t(y"0""."(y"1""#"(x(x"~~{~~~s,'.b
~~}"z)(iota(ash 1 z))))))