(define (twice lst)
  (cond [(null? lst) '()]
        [else (cons (car lst)(cons (car lst)(twice(cdr lst))))]))