r.db('factoid')
  .table('document')
  .filter( r.row('status').eq('public')  )
  .merge( function( document ) {
    return {
      createdDate: r.branch(
        document('createdDate').typeOf().eq('PTYPE<TIME>'),
        r.round(document('createdDate').toEpochTime()),
        document('createdDate').typeOf().eq('NUMBER'),
        r.round(document('createdDate')),
        null
      )
    }
  })
  .merge( function( document ) {
    return {
      submittedDate:
        r.branch(
          document('_ops')
            .filter( function(op){
              return op('data')('status').eq('submitted');
            })
            .count().gt(0),
          document('_ops')
            .filter( function(op){
              return op('data')('status').eq('submitted');
            })
            .nth(0).default(0)
            ('timestamp')
            .toEpochTime()
            .round(),
          0
        )
    }
  })
  .filter(r.row('submittedDate').gt(0))
  .merge( function( document ) {
    return {
      elapsed:
        document('submittedDate').sub( document('createdDate') )
    }
  })
  .map( function( document ){
    return document.merge({ entries: document( 'entries' )( 'id' ) });
  })
  .merge( function( document ) {
    return {
      numInteractions:
        r.db('factoid').table('element')
          .getAll( r.args( document( 'entries' ) ) )
          .coerceTo( 'array' )
          .pluck( 'id', 'association', 'type', 'name', 'entries' )
          .filter(function (element) {
            return  element('type').eq('ggp').not()
              .and( element('type').eq('dna').not() )
              .and( element('type').eq('rna').not() )
              .and( element('type').eq('protein').not() )
              .and( element('type').eq('chemical').not() )
              .and( element('type').eq('complex').not()  )
              .and( element('type').eq('namedComplex').not()  )
          })
          .merge( function( interaction ){
            return {
              participants: interaction('entries')
                .map( function( entry ){
                  return r.db('factoid').table('element')
                    .get( entry('id') )
                    .pluck( 'id', 'type', 'name', 'association', 'parentId' )
                    .merge( { group: entry('group') } )
                    .merge( function( entry ) {
                      return r.branch( entry('type').eq('complex'),
                        {
                          components: r.db('factoid').table('element')
                            .get( entry('id') )('entries')
                            .map( function( component ){
                              return r.db('factoid').table('element')
                                .get( component('id') )
                                .pluck( 'id', 'type', 'name', 'association', 'parentId' )
                            })
                            .merge( function( component ){
                                return {
                                  xref: component('association')('dbPrefix').add( ':', component('association')('id') )
                                }
                            })
                            .without( 'association' )
                        },
                        {}
                      )
                    })
                })
                .merge( function( entry ){
                  return {
                    xref: r.branch(
                      entry.hasFields('association'), entry('association')('dbPrefix').add( ':', entry('association')('id') ) ,
                      ''
                    )
                  }
                })
              .map( function( entry ){
                return entry
                  .pluck( 'id', 'name', 'xref', 'group', 'type', 'parentId', 'components' )
              })
            };
          })
          // .filter( function( interaction ) { // intra-components
          //   return interaction('participants')(0).hasFields('parentId').not()
          //     .or( interaction('participants')(1).hasFields('parentId').not() )
          //     .or( interaction('participants')(0)('parentId').eq( interaction('participants')(1)('parentId') ).not() )
          // })
          .without('association', 'name', 'entries' )
          .count()
    };
  })
  .merge( function( document ) {
    return {
      created:
        r.epochTime(document('createdDate')).toISO8601()
    }
  })
  .pluck( 'id', 'created', 'createdDate', 'submittedDate', 'elapsed', 'numInteractions')