#$ Basic typeclass with three instances, which reference the previous ones.
# 600

class MyAsInt
	to-int (self _) -> I32

m = 69
inst MyAsInt I32
	to-int (self I32) -> I32
		return self + m

inst MyAsInt Unit
	to-int (self Unit) -> I32
		return 420 + to-int(111)

true-const = 1
false-const = 0
inst MyAsInt Bool
	to-int (self Bool) -> I32
		if self
			return true-const
		else
			return false-const + to-int(Unit)

println(to-int(False))