#! perl -wl
@a=qw(
75
80
81
90
96
100
108
120
125
128
135
144
150
160
162
180
192
200
216
225
240
243
250
256
    );

#270 288 300 320 324 360 375 384

# for i in `seq 75 384` ; do factor $i ; done | perl -nlwae 'if ($F[$#F]<7){($_=$F[0])=~s/://;print}'
$i=$a[rand @a];
print $i*8
