( ( '* putc ) swap times cr ) 1 5 loop