CLN use write rather than print >>