--- a/tools/protocolParser.hs	Wed Apr 22 23:33:16 2015 +0300
+++ b/tools/protocolParser.hs	Sat Apr 25 23:46:09 2015 +0300
@@ -1,6 +1,7 @@
 module Main where
 
 import Text.PrettyPrint.HughesPJ
+import Data.Tree
 
 data HWProtocol = Command String [CmdParam]
 data CmdParam = Skip
@@ -26,4 +27,6 @@
         , cmd1 "LOBBY:JOINED" $ Many [SS]
     ]
 
-main = undefined
+pas = 
+    
+main = putStrLn $ render pas