functional or imperative?

gistfile1.txt

record Vars =
    count : Int,
    sum   : Int,

func initial-vars : Vars = Vars 0 0

func main : IO =
    start-with initial-vars;
    count := 0;
    sum := 0;
    fix \loop
        retreat \vars
        println ("count: " ++ string (count vars));
        println ("sum:   " ++ string (sum vars));
        print "type a word: ";
        scanln \word
        start-with vars;
        if (word == ":reset") (
            count := 0;
            sum := 0;
            loop
        );
        count <- inc;
        sum <- + length word;
        loop