(let [synth   (. MidiSystem getSynthesizer)
      channel (first (. synth getChannels))
      frame (JFrame. "Music Frame")]
  (. frame setSize 300 300)
  (. frame setDefaultCloseOperation JFrame/EXIT_ON_CLOSE)
  (. frame addKeyListener
     (proxy [KeyListener] []
       (keyPressed [e]
         (. channel noteOn (int (.getKeyChar e)) 64))
       (keyReleased [e]
         (. channel noteOff (int (.getKeyChar e))))
       (keyTyped [e])))
  (. frame setVisible true))