S:=stdin upTo:'##'display.[T:=$#.'  !'<S&(S<'# #')or:[T:=$ ].T display.(S:=S copyFrom:2)>0]whileTrue