Konungen var klädd iamiralsoch