@i=<>;{(@w=split /\s+/,shift @i)>1 or push @w,grep /./,split /\s+/,shift @i; push @c,(join q;,;,@w).qq.\n.;redo if @i;}print @c