anchor.diff:  
   (defun partial-right (fn &rest partial-args)
     (apply #'partial (flip fn) partial-args))
  +
  
positive.code: (defpackage cl-commons
    (:use :cl)
    (:export :split-string-in-chars
             :average
             :median
             :compose
  
negative.code: (defun split-string-in-chars (string)
    "Splits a string in it's charachters."
    (map 'list #'identity string))
  
  (defun string-append (&rest args)
    "Appends strings"
    (apply (partial #'concatenate 'string) args))
  
  (defun average (elements)
    (/ (apply #'+ elements) (length elements)))
  