--Copyright The Numerical Algorithms Group Limited 1996.
-- This file tests elts and setelts

)clear all
u : Bits := new(10,true)
u(3..5) := false; u
)clear all
u:Any := [1, 7.2, 3/2, x**2, "wally"]
u.1
)clear all
