happy new year by pooq

character*6 a,b
read(*,'(a)'),a
b="('-' )"
if(a==":)")b="(:"
if(a=="M:b")b="d:M"
print'("happy ",a," new ",a," year!")',trim(b),trim(a)
end

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page