Kongl maj:l har underden