CHARACTER*64 IN
      READ(*,*) IN
      IF(IN.EQ.'ham') THEN
        WRITE(*,*) 'ham'
      ELSE
        WRITE(*,*) TRIM(IN),'ham'
      END IF
      STOP
      END