contract Foo = type state = unit entrypoint init(): state = let _ = ct_fooObar ()