main=interact$(0#).words r+1#("=":y)=show r++"\n"++r#y r#(x:y)=(r+1)#y r#x=[]