gistfile1.txt

str: load_input		// or whatever -- we have a string with newline-separated words

// The worker task for mapreduce
calculate_length_task: (task) {
	message: task.pop				// Blocks until there is a message
	if message = "get_length"		// Operator = overloaded for Message class
		task.yield message.args[0].length
	else
		task.yield null
	end
}

// Map
words: str.split("\n")
workers: words.map (word) { spawn &calculate_length_task }

// Do
word_lengths: workers.map (worker) { worker.get_length }

// Reduce
sum: word_lengths.sum