(defvar *program*
  '(my $min-t = $raw div 60             ;
    my $sec   = $raw - ( $min-t * 60 )  ;
    my $hr-t  = $min-t div 60           ;
    my $min   = $min-t - ( $hr-t * 60 ) ;
    my $day-t = $hr-t div 24            ;
    my $hr    = $hr-t - ( $day-t * 24 ) ;
    my $yr    = $day-t div 365          ;
    my $day   = $day-t - ( $yr * 365 )  ;
   
    say |Year:| $yr |Day:| $day |Hour:| $hr |Min:| $min |Sec:| $sec ;
    }))

(defun result (program)
  (cond ((null program) nil)
        ((numberp program) program)
        ((and (symbolp program) (boundp program))
         (symbol-value program))
        ((eq program '}) '|:)|)
        ((symbolp program)
         program)
        ((eq (car program) 'my)
         (let* ((lhs (cadr program))
                (rest (member-if (lambda (x) (member x '(my say })))
                                 (cdddr program)))
                (rhs (ldiff (cdddr program) rest)))
           (progv (list lhs) (list (result rhs))
             (result rest))))
        ((eq (cadr program) '*)
         (* (result (car program))
            (result (caddr program))))
        ((eq (cadr program) 'div)
         (truncate (result (car program))
                   (result (caddr program))))
        ((eq (cadr program) '-)
         (- (result (car program))
            (result (caddr program))))
        ((eq (car program) 'say)
         (dolist (arg (cdr program))
           (princ (result arg))
           (princ " ")))))

(defun test ()
  (progv '($raw) '(123456789)
    (result *program*)))