[[ Output a date header ]]
[[ Sample header:
	X-Composition-Start-Date: Sat, 13 Feb 2002 23:08:51 -0500 (EST)
   Outputting of the pieces is as marked. ]]
"X-Composition-Start-Date: " @outstring	[[ header name ]]
hdc s+ hd*
[[ Stack now: 2002 2 13 7 23 08 51 -300 (EST) ]]
[[ 2 is Feb, 7 is Sat, -300 is -5 hours in minutes. ]]
8 4 sl
hd$W @outstring				[[ Sat ]]
", " @outstring				[[ ,  ]]
$<i @outstring				[[ 13 ]]
" " @outstring				[[   ]]
hd$M @outstring				[[ Jul ]]
" " @outstring				[[   ]]
$<i @outstring				[[ 2002 ]]
" " @outstring				[[   ]]
4 ss 2 '0' $<<i @outstring		[[ 23 ]]
":" @outstring				[[ : ]]
sr 2 '0' $<<i @outstring		[[ 08 ]]
":" @outstring				[[ : ]]
sx 2 '0' $<<i @outstring		[[ 51 ]]
" " @outstring				[[   ]]
s+ 0 < ?? _1 * "-" ?| "+" ?. @outstring	[[ - ]]
s+ 60 % sx 60 /
2 '0' $<<i @outstring			[[ 05 ]]
2 '0' $<<i @outstring			[[ 00 ]]
" (" @outstring				[[  ( ]]
hd$z @outstring				[[ EST ]]
")\n" @outstring			[[ ) ]]