character*40s/40h('character*40s/40h'a$'/;print s,s;end')/;print s,s;end