sub fireball{
	
	my $uint32_t = \buffer;
	my $word_count;
	my $bias;
	(
		uint23_t checksum = $bias
		while($word_count);
			{
				checksum += \buffer
				word_count--
				buffer++
			}
		return checksum
	)