program x;
type
  TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen, ssCommand, ssHorizontal);
var
  state: SmallInt;
begin
  for state := Ord(Low(TShiftState)) to Ord(High(TShiftState)) do
  begin
    case state of
      Ord(ssShift): WriteLn('Shift');
      Ord(ssAlt): WriteLn('Alt');
      Ord(ssCtrl): WriteLn('Ctrl');
      Ord(ssLeft): WriteLn('Left');
      Ord(ssRight): WriteLn('Right');
      Ord(ssMiddle): WriteLn('Middle');
      Ord(ssDouble): WriteLn('Double');
      Ord(ssTouch): WriteLn('Touch');
      Ord(ssPen): WriteLn('Pen');
      Ord(ssCommand): WriteLn('Command');
      Ord(ssHorizontal): WriteLn('Horizontal');
    end;
  end;
end.

cHJvZ3JhbSB4Owp0eXBlCiAgVFNoaWZ0U3RhdGUgPSBzZXQgb2YgKHNzU2hpZnQsIHNzQWx0LCBzc0N0cmwsIHNzTGVmdCwgc3NSaWdodCwgc3NNaWRkbGUsIHNzRG91YmxlLCBzc1RvdWNoLCBzc1Blbiwgc3NDb21tYW5kLCBzc0hvcml6b250YWwpOwp2YXIKICBzdGF0ZTogU21hbGxJbnQ7CmJlZ2luCiAgZm9yIHN0YXRlIDo9IE9yZChMb3coVFNoaWZ0U3RhdGUpKSB0byBPcmQoSGlnaChUU2hpZnRTdGF0ZSkpIGRvCiAgYmVnaW4KICAgIGNhc2Ugc3RhdGUgb2YKICAgICAgT3JkKHNzU2hpZnQpOiBXcml0ZUxuKCdTaGlmdCcpOwogICAgICBPcmQoc3NBbHQpOiBXcml0ZUxuKCdBbHQnKTsKICAgICAgT3JkKHNzQ3RybCk6IFdyaXRlTG4oJ0N0cmwnKTsKICAgICAgT3JkKHNzTGVmdCk6IFdyaXRlTG4oJ0xlZnQnKTsKICAgICAgT3JkKHNzUmlnaHQpOiBXcml0ZUxuKCdSaWdodCcpOwogICAgICBPcmQoc3NNaWRkbGUpOiBXcml0ZUxuKCdNaWRkbGUnKTsKICAgICAgT3JkKHNzRG91YmxlKTogV3JpdGVMbignRG91YmxlJyk7CiAgICAgIE9yZChzc1RvdWNoKTogV3JpdGVMbignVG91Y2gnKTsKICAgICAgT3JkKHNzUGVuKTogV3JpdGVMbignUGVuJyk7CiAgICAgIE9yZChzc0NvbW1hbmQpOiBXcml0ZUxuKCdDb21tYW5kJyk7CiAgICAgIE9yZChzc0hvcml6b250YWwpOiBXcml0ZUxuKCdIb3Jpem9udGFsJyk7CiAgICBlbmQ7CiAgZW5kOwplbmQu