% This makes it possible to unjam the window system when an 
% antisocial X program like OLWM grabs the server and locks 
% it up. 

{ systemdict /UnJamProc 2 copy known {
    2 copy get killprocess
    10 { pause } repeat
  } if
  currentprocess put
  currentprocess /ProcessName (UnJamServer) put
  currentprocess /Priority 10000 put
  (%socketl2323)(r) file
  { dup acceptconnection
    { 20 { unblockinputqueue pause } repeat 
      currenttime 60 mul (Unjammed at %!!!\n) sprintf
      console 1 index writestring console flushfile
      2 copy writestring pop flushfile
    } fork pop pop
  } loop
} fork pop
newprocessgroup currentfile closefile