#lang scheme

(require (prefix-in procedural: (for-syntax "procedural.ss")))

(define-for-syntax (equivalent-procedure-to procedure form)
  (datum->syntax form (apply procedure (cdr (syntax->datum form))) form))

(define-syntax sizeof
  (λ (form)
    (equivalent-procedure-to procedural:sizeof form)))


(require (only-in "procedural.ss" pick-an-integer))

(provide sizeof pick-an-integer)