<?xml version='1.0'?>
<xsl:stylesheet xmlns:xsl = "http://www.w3.org/1999/XSL/Transform"  version = "1.1" >
<xsl:preserve-space elements="*"/>
<xsl:output method="xml" indent="no"/> 

<xsl:template match="*" >
 <xsl:copy>
  <xsl:apply-templates select="@*|*|text()" />
 </xsl:copy><xsl:value-of select="$newline"/>
</xsl:template>

<xsl:template match="@*|text()" >
 <xsl:copy>
  <xsl:apply-templates select="@*|*|text()" />
 </xsl:copy>
</xsl:template>




<xsl:template match="camp">
 <camp>
  <xsl:call-template name="get_command">
   <xsl:with-param name="camptext" select="translate(.,' ','_')" />
  </xsl:call-template>
 </camp>
</xsl:template>

 <xsl:template name="get_command">
 <xsl:param name="camptext" /><xsl:text>
</xsl:text><cmnd><xsl:text>
</xsl:text><name><xsl:value-of select="translate(substring($camptext, 1, 5),'_','')"/></name>
<stack><xsl:value-of select="translate(substring($camptext, 6, 1),'_','')"/></stack>
<array><xsl:value-of select="translate(substring($camptext, 7, 3),'_','')"/></array>
<par><xsl:value-of select="translate(substring($camptext, 10, 1),'_','')"/></par>
<arg1><xsl:value-of select="translate(substring($camptext, 11, 10),'_','')"/></arg1>
<arg2><xsl:value-of select="translate(substring($camptext, 21, 10),'_','')"/></arg2>
<arg3><xsl:value-of select="translate(substring($camptext, 31, 10),'_','')"/></arg3>
<arg4><xsl:value-of select="translate(substring($camptext, 41, 10),'_','')"/></arg4>
<arg5><xsl:value-of select="translate(substring($camptext, 51, 10),'_','')"/></arg5>
<comment><xsl:value-of select="translate(substring($camptext, 61, 20),' ','_')"/></comment><xsl:text>
</xsl:text></cmnd>
 <xsl:variable name="rest"><xsl:value-of select="string-length($camptext) - 81" /></xsl:variable>
 <xsl:if test="$rest > 1">
  <xsl:call-template name="get_command">
   <xsl:with-param name="camptext" select="substring($camptext,82,$rest)"/>
  </xsl:call-template>
 </xsl:if>
 </xsl:template>



</xsl:stylesheet>