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

# lotto.pl - Arvo yksi lottorivi; 2003, LTu

srand(); 
my @a=1..39;
print splice(@a, rand @a, 1), "\n" for 1..7