(de getEventsFromTimeStamp (Origin Timestamp)
    (let (DbOrigin (db 'name '+EventOrigin Origin)
                   Events (solve '(@CreatedAt (cons Timestamp T)
                                   @Origin DbOrigin
                                   (select (@Event)
                                           ((createdAt +Event @CreatedAt)
                                            (origin +Event @Origin))
                                           (same @Origin @Event origin)
                                           (range @CreatedAt @Event createdAt)))))
      (if (not (== DbOrigin NIL))
        (mapcar '((E)
                  (getl (get E '@Event)))
                Events)
        NIL)
      ))