Seberius

(definterface IBigInt
  (add this y)
  (subtract this y)
  (multiply this y)
  (divide this y))

(defprotocol BigInt [signum magnitude]
  IBigInt
  (add (add this y))
  (subtract (sub this y))

Seberius

(ns patterns.decorator.core
  (:require [clojure.data.json :as json]
            [clojure.string :as str]
            [patterns.util :refer [to-xml]]))

;; Record impl
(defprotocol IRenderable
  (render [this]))

(defrecord WebService [data]