var s:string;begin repeat readln(s);writeln(copy(s,pos(^4,s)))until 0>0end.