#!/usr/local/bin/perl
for (2..16) {
    system($ARGV[0],1<<$_);
}
