BEGIN{RS=5;getline<0;split($0,s,"/");RS=ORS}{print>i=0;for(;s[++i];)sub(s[++i],s[++i])}!/^s/