// Different sizos get different prefixes

SIZO = type slave sizo.

findSizoId = function(key::Annotation):: int; interpretation(force){
  dict = intrinsic query("dictSizos")::[Annotation].

  id = loop fold(dict->entryAnn::Annotation, 0->id):: int {
      entry = extractDictEntry(entryAnn):: DictEntry.
      
      if(entry[0] == key):: int { entry[1] } else { id }
  }.
  
  id
}

findSizoPrefx = function(sizo:: SIZO):: string 
{
  id = findSizoId(sizo).
  
  buf = "0000"::string.
  seq
    { sprintf(buf, "%d", id).}
    { buf }
}

openfile = function
{
  domCurrent = query context::            SIZO.
  prefix = findSizoPrefx(domCurrent)::    string.
  
  fopen(prefixStr + fileName)
}

writefile = function 
{

}