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