sub printnl {print @_, "\n"}