#!/usr/bin/env perl
use utf8;
use strict;
use warnings;

MAIN:
{
	print "Powers of 2 up to 256!\n";
	for (my $i = 1; $i <= 256; $i *= 2) {
		print $i, "\n";
	}
}