let main (kh: key_hash) : unit contract = Current.implicit_account kh