#!/usr/local/bin/cz --
use b
Main()
	warn("type something! ^D to finish")
	bm_start()
	cstr text = buffer_to_cstr(fslurp(stdin))
	int chars = strlen(text)
	num words5 = chars / 5.0
	bm("finished")
	num secs = bm_end - bm_start
	num mins = secs / 60
	num wpm = words5 / mins
	Sayf("words:\t%.2f", words5)
	Sayf("seconds:\t%.2f", secs)
	Sayf("wpm:\t%.2f", wpm)

