("([IA])(v?)(V?L?)([fF]?)"
| < (2 =) (1 =) (3 = *) > (4 =) |)
("([CA])(m?)(M?)(v?)(V?L?)([fF]?)"
- | < (4 = ) (2 =) (1 =) (3 =) (4 = *) > (5 =) |)
+ | < (4 = ) (2 =) (1 =) (3 =) (5 = *) > (6 =) |)
("."
=))
*))
(generator
(0
(cond
- (" .*f " < = * >)
- (" .* " = *)
- ("." =))))
+ (" (.*f) " < (1 = *) >)
+ (" (.*) " (1 = *))
+ ("." =))
+ *))
;; Copyright (C) 2008
;; National Institute of Advanced Industrial Science and Technology (AIST)