character*46::s='("character*46::s=",3a,";print s,39,s,39;end")';print s,39,s,39;end