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