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