(let((n(read))(f(pa$ format #t)))(if(= 1 n)(f"1
")(let1 m(- n 2)#2=(f"~v,,,'1a
"n"")(dotimes(_ m)(f"1~v,,,'0a1
"m""))#2#)))