let main (c: unit contract) : address = Current.address c