$prefix _TMPRFSM_
$anyof	real_exp_char	edgEDG
$state	real
$tran		$eos->$fail
$tran		$lambda				_TMPR_init
$state
$tran		'-'				_TMPR_negative
$tran		'+'
$tran		$lambda
$state	int_digit
$tran		$digit->int_digit		_TMPR_int_digit
$tran		'.'->fraction
$tran		$lambda->exp
$state	fraction
$tran		$digit->fraction		_TMPR_frac_digit
$tran		$lambda->exp
$state	exp
$tran		!exponent
$tran		$lambda
$state
$tran		$eos->$exit			_TMPR_finish_real
$state	exponent
$tran		$anyof real_exp_char
$state
$tran		'+'
$tran		'-'				_TMPR_negate_exp
$tran		$lambda
$state
$tran		$decimal->$exit			_TMPR_set_exp
