new -compact mode, also use for eval when printing function objects

[ldemailly]

$ ./grol -format -compact examples/sample.gr  2> /dev/null; echo
unless=macro(cond,iffalse,iftrue){quote(if !unquote(cond){unquote(iffalse)}else{unquote(iftrue)})}unless(10>5,print("BUG: not greater\n"),print("macro test: greater\n"))fact=func(n){log("called fact ",n)if n<=1{return 1}n*self(n-1)}a=[fact(5),"abc",76-3]m={"key":a,73:29}print("m is:",m,"\n")print("Outputting a smiley: 😀\n")first((m["key"]))

$ ./grol -format -compact examples/sample.gr | ./grol -format -
12:50:10.965 grol dev  go1.22.5 arm64 darwin - welcome!
12:50:10.965 grol dev  go1.22.5 arm64 darwin - welcome!
12:50:10.966 [INF] Formatting stdin
12:50:10.966 [INF] Formatting examples/sample.gr
12:50:10.966 [INF] All done
unless = macro(cond, iffalse, iftrue) {
	quote(if !unquote(cond) {
		unquote(iffalse)
	} else {
		unquote(iftrue)
	})
}
unless(10 > 5, print("BUG: not greater\n"), print("macro test: greater\n"))
fact = func(n) {
	log("called fact ", n)
	if n <= 1 {
		return 1
	}
	n * self(n - 1)
}
a = [fact(5), "abc", 76 - 3]
m = {"key":a, 73:29}
print("m is:", m, "\n")
print("Outputting a smiley: 😀\n")
first((m["key"]))
12:50:10.967 [INF] All done

relates a bit to #38