/* This file is in the public domain. */
$prefix	_foo_
$trace	trace
$action	action_trace
$state	main
$tran		"0x"*"yz"->hex		straction
$tran		"hex"->hex		straction
$tran		'0'->octal		strfoo('0')
$tran		'-'->dash		strfoo($arg)
$tran		$decimal->main		number("decimal","%d",$arg)
$tran		$eos->$exit
$state	hex
$tran		$hex->main		number("hex","0x%x",$arg)
$state	octal
$tran		$octal->main		number("octal","0%o",$arg)
$state	dash
$tran		$lambda->main		strbar(1,$arg,2)