$prefix	_TMPIFSM_
$$#include "fsmsubs.h"
$state	int
$tran		$lambda				_TMPI_init
$state
$tran		'-'				_TMPI_negative
$tran		'+'
$tran		$lambda
$state
$tran		"0x"->hex
$tran		'0'->octal
$tran		$decimal->done			_TMPI_value($arg)
$state	octal
$tran		$octal->done			_TMPI_value($arg)
$tran		$eos->$exit			_TMPI_value(0)
$state	hex
$tran		$hex->done			_TMPI_value($arg)
$state	done
$tran		$eos->$exit