途中で送ってしまった． inf*0 が NaNになるので文字列判定されたあと， X=X*0:RETURN X==X を追加すればOK．