#!/usr/bin/perl

my $k1 = int(rand(6))+1;
my $k2 = int(rand(6))+1;
my $k3 = int(rand(6))+1;
my $k4 = int(rand(6))+1;
my $k5 = int(rand(6))+1;

print "$k1 $k2 $k3 $k4 $k5\n";