#!/usr/bin/perl -P
#define get for($x=0;$x<$k;$x++) {
#define _()(int(rand(36)+1))
#define lottery __($x);
#define picks print "@l1[$x] @l2[$x] @l3[$x] @l4[$x] @l5[$x] @l6[$x]\n";}
($k)=@ARGV;
#define __($x){$y=0;$a=_();$b=_();while($b==$a){$b=_();}$c=_();while($c==$a||$c==$b){$c=_();}$d=_();while($d==$a||$d==$b||$d==$c){$d=_();}$e=_();while($e==$a||$e==$b||$e==$c||$e==$d){$e=_();}$f=_();while($f==$a||$f==$b||$f==$c||$f==$d||$f==$e){$f=_();}@g[$y++]=$a;@g[$y++]=$b;@g[$y++]=$c;@g[$y++]=$d;@g[$y++]=$e;@g[$y++]=$f;@g=sort{$a<=>$b}@g;@l1[$x]=@g[0];@l2[$x]=@g[1];@l3[$x]=@g[2];@l4[$x]=@g[3];@l5[$x]=@g[4];@l6[$x]=@g[5];}

get lottery picks

Disclaimer: This is an unofficial UMMS page.