DEFINE putln == put '\n putch.

1024 [] [dup putln 2 /] while.