a:=0;File standardInput foreach($,a== $or$asCharacter print;a= $)