open import "prelude.ml" class decode 'a begin val decode : int -> 'a end