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