print "$1\n" while /\G(.{1,80})/gs;

##</code><code>##

print map "$_\n", /\G(.{1,80})/gs;