newLisp FOOP example

#!/usr/bin/env newlisp

(new Class 'Counter)

; override default constructor
(define (Counter:Counter (start-value 0) (increment 1))
  (list Counter start-value increment))

(define (Counter:next (times 1)) (dotimes (x times) (inc (self 1) (self 2))))

(define (Counter:to_s) (format "step:%d, value:%d" (self 2) (self 1)))

(context MAIN)

; uses default values (value = 0, increment = 1)
(set 'c (Counter))
(println (:to_s c))
(:next c)
(println (:to_s c))
(:next c 2)
(println (:to_s c))

; explicit values
(set 'c (Counter 2 3))
(println (:to_s c))
(:next c)
(println (:to_s c))
(:next c 2)
(println (:to_s c))

(exit)