--open list

#eval "α₁".length
#eval "α₁ → β₁".length
#eval "∀ α : nat → nat, α 0 ≥ 0".length
#print "------------"
#eval "α₁".utf8_length
#eval "α₁ → β₁".utf8_length
#eval "∀ α : nat → nat, α 0 ≥ 0".utf8_length