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