#!/usr/bin/perl -w
use strict;

for my $i (0..9) {
	for my $j (0..9) {
		for my $k (0..9) {
			for my $l (0..9) {
				for my $m (0..9) {
					for my $n (0..9) {
						for my $o (0..9) {
							print $i,$j,$k,$l,$m,$n,$o,"\n";
							}
						}
					}
				}
			}
		}
	}