var c:char;i:comp;begin
repeat read(c);if c=^then writeln(i);inc(i)until 1=0end.