BEGIN {
   havedata = 0;
   group = subgroup = "";
   print "<parameters>\n";
}

/^[A-Za-z]+: *(.*)/ { 
    keyword = tolower(substr( $0, 1, index( $0, ":" ) - 1 ) );
    data = substr( $0, index( $0, ":" ) + 1 );
    sub( /^ +/, "", data );
    sub( / +$/, "", data );
    if( keyword == "group" )
    { 
      if( group != "" ) { print "</group>\n" }
      printf "<group><title>%s</title>\n", data;
      group = data;
      subgroup = "";
      next;
    }
    
    if( keyword == "subgroup" )
    { 
      if( subgroup != "" ) { printf "</subgroup[%s]>\n", subgroup }
      printf "<subgroup><title>%s</title>\n", data;
      subgroup = data;
      next;
    }
    
    havedata = 1;
    fields[keyword] = data;
    next;
}
/^ *$/ { 
    if( havedata == 0 ) { next }

    print "<parameter>\n";
    for( keyword in fields )
    { printf "<%s>%s<%s>\n", keyword, fields[keyword], keyword }
    print "</parameter>\n";
    havedata = 0;
    delete fields;
    next;
}

{ printf "Invalid input: %s\n", $0; exit; }

END { 
    if( havedata == 1 ) 
    {
      print "<parameter>\n";
      for( keyword in fields )
      { printf "<%s>%s<%s>\n", keyword, fields[keyword], keyword }
      print "</parameter>\n";
    }
    if( subgroup != "" )
    { print "</subgroup>\n" }
    if( group != "" )
    { print "</group>\n" }
    print "</parameters>\n";
}