data NamedTag = (String, Tag)

data Tag = TAG_End
         = TAG_Byte       Int8
         = TAG_Short      Int16
         = TAG_Int        Int32
         = TAG_Long       Int64
         = TAG_Float      Float
         = TAG_Double     Double
         = TAG_String     String
         = TAG_List       [Tag]
         = TAG_Compound   [NamedTag]