#! perl -nlwa
for($F[0]){
    s/,7,24,60,60\]/ weeks/;
    s/,24,60,60\]/ days/;
    s/,60,60\]/ hours/;
    s/,60\]/ minutes/;
    s/\]$/ seconds/;
    s/^\[//;
    if(/^1 /){
        s/s$//;
    }
}
print "# sleep up to $F[0]";
print 'sleep $(expr 281474976710656 \\* $RANDOM / ',$F[1],')';
print "";
