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