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