fta/slideshow/private/frtime/qq-test.ss
(module qq-test (lib "frp.ss" "frtime")
 ; (make-namespace-with-mred 'mred)
 ; (require (lib "mred.ss" "mred"))
 ; (require-for-syntax (lib "mred.ss" "mred"))
  
  (require (as-is:unchecked mzscheme define-syntax))
  
 
  
  (define-syntax (tst stx)
    (syntax-case stx ()
      [(_) #'(cons 2 (cons seconds ()))]))
  
  (provide tst))