path: root/rkt/double.rkt

#lang racket

(define (double v)
  ((if (string? v) string-append +) v v))

(string-append "ba"
               (double "na"))

(double 21)