program doitien1;
var
  M, N, T: integer;
  A: array[1..9] of integer = (1000, 2000, 5000, 10000, 20000, 50000, 100000, 200000, 500000);
begin
  assign(input, 'doitien1.inp');
  reset(input);
  assign(output, 'doitien1.out');
  rewrite(output);
  readln(M); // Đọc số tiền M từ file
  N := 0; // Số tờ tiền ít nhất
  T := 9; // Chỉ số của mệnh giá lớn nhất
  while M > 0 do
  begin
    N := N + M div A[T]; // Thêm số tờ tiền mệnh giá A[T] cần dùng
    M := M mod A[T]; // Cập nhật số tiền còn lại
    T := T - 1; // Chuyển sang mệnh giá nhỏ hơn
  end;
  writeln(N); // Ghi số tờ tiền ít nhất ra file
  for T := 9 downto 1 do
  begin
    if N > 0 then
    begin
      writeln('Loai ', A[T], ': ', N, ' to'); // Ghi số tờ tiền mỗi loại ra file
      N := N - M div A[T]; // Cập nhật số tờ tiền còn lại
      M := M mod A[T]; // Cập nhật số tiền còn lại
    end;
  end;
  close(input);
  close(output);
end.