#!/usr/bin/env perl6

sub ip2Int(@ip) {
	my Int $ipint = 0;
	
	for ^4 {
		$ipint +<= 8; $ipint +|= @ip[$_];
	}
	$ipint;  
}

sub int2Ip($ipint) {
	my @ip;

	@ip.push: ($ipint +> (8 * .Int)) +& 0xff for ^4;
	@ip.reverse;
}

say int2Ip($_) for ip2Int([1, 0, 16, 0]) ... ip2Int([1, 0, 17, 2]);