/* iGASM example */
/* Evaluates function, defined by expression. */
FUNCTIONS
        static fexpr : Number -> Number;
        par : Number;
        
INITIAL
        par := 0;
        
FINAL
    par = undef;
    
EXPRESSIONS
        fexpr := -sin($0)+2*cos($0);
        
RULES
        writeln := "F(" + toString(par) + ") = " + toString(fexpr(par));
        par := toNumber(readln("Enter a number:"));