#!/bin/rc

rfork ne

upas/fs $*

@{
	for(i in `{ls -n /mail/fs/mbox})
		echo `{cat $i/from} % `{cat  $i/subject} 
} | 
	columns -d %