s[];main(a){read(open(&a,0),s,s);write(creat(&a),s,read(!puts(s)));}