Program q2;
	Var c10,c5,c2,c1,x :integer;
	Begin
		Readln(x);
		c10 := x div 10;
		x := x mod 10;
		c5 := x div 5;
		x := x mod 5;
		c2 := x div 2;
		c1 := x mod 2;
		writeln(c10, ．$10・);
		writeln(c5, ．$5・);
		writeln(c2, ．$2・);
		writeln(c1,・$1・)
	end.