*A=eval<>;$%+=$A[$i=$%],$A[$i]="💩",while$%>-1&&$%<@A;$"=",";print"[@A]"