CHARACTER*24 IN
      READ(*,*) IN
      WRITE(*,*) IN,'ham'
      STOP
      END