let call_input_key call n = SigCallKey (call, (Signature.in_key n))