.PS

boxwid = 2
boxht = 1
colheaderh = 0.4
rowheaderw = 1.0



define header {
	[
		right
		box invis "" ht colheaderh wid rowheaderw
		box dotted "\fI" $1 "\fR" ht colheaderh
		box dotted "\fI" $2 "\fR" ht colheaderh
	]
}
define row {
	[
		right
		box dotted "\fI" $1 "\fR" wid rowheaderw
		box $2
		box $3
	]
}
down


header("written",  "recorded")
row("asynchronous" "(messages)",  "email" "SMS",  "voice mail" "video messages")
row("synchronous" "(dialog)",  "IM" "chat",  "VoIP" "video conferencing")





.PE