#! /usr/bin/perl -w
for $i (1..shift(@ARGV)) {
  sleep 60/(2 ** $i) unless fork;
}
system(@ARGV);