Plaster

(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*)))

​