# FML power and multiplication.
#
# $Id: power.fml,v 1.3 1995/02/23 08:32:07 adam Exp $

\bin Mult a b {
	\set val 0
	\set l 0
	\while {\l \lt \b}
	{
		\set val {\val \plus \a}
		\set l {\l \plus 1}
	}
	\return \val
}

\func Power a b {
	\set l 0
	\set val 1
	\while {\l \lt \b}
	{
		\set val {\val \Mult \a}
		\set l {\l \plus 1}
	}
	\return \val
}
\Power 3 5