$exmno=0 unless s//''/egs; #### This is example 1 #### This is example 1