(de getEventsFromTimeStamp (origin timestamp)
    (let (dbOrigin (db 'name '+EventOrigin origin)
                   events (solve '(@CreatedAt (cons timestamp T)
                                   @Origin origin
                                   (select (@Event)
                                           ((createdAt +Event @CreatedAt)
                                            (origin +Event @Origin))
                                           (range @CreatedAt @Event createdAt)))))
      (if (not (== dbOrigin NIL))
          events
        "Wrong event origin")))