general {
    funcon-term: 
      initialise-storing
      is-in-type(fresh-atom, locations)
        ;
}

tests {
    result-term: true;
}