(let ((type a (record (tostr string))))
  (if (< 1 3) (new a (tostr "true")) (new a (tostr "false"))))