#!/bin/rc

fn w {w=/lib/words ; fortune <{grep $1'$' $w} | sed 1q}; echo `{w ive} and `{w ble}