\ convert time&date to 10 character string
: +num		( n str -- )
	swap 0 <# # # #> astring pack swap "cat ;
: time>name	( str -- str )
	nullstring swap "move astring  locals| dummy str |
	push-decimal now today	( seconds minutes hours day month year )
	5 0 do str +num loop drop
	pop-base str ;
