newoutput.txt

(
  define
  ones
  (
    lambda
    ()
    (
      cons
      1 ones)))

(
  car
  (
    (
      cdr
      (
        cons
        1 ones))))

(
  define
  (
    counter-first start-num)
  (
    lambda
    ()
    (
      cons
      start-num
      (
        counter-first
        (
          +
          start-num 1)))))

(
  define
  counter
  (
    lambda
    ( start-num)
    (
      lambda
      ()
      (
        cons
        start-num
        (
          counter
          (
            +
            start-num 1))))))

(
  define
  counter-from-1
  (
    counter-first 1))

(
  (
    cdr
    (
      (
        cdr
        (
          (
            counter 1))))))

(
  (
    cdr
    (
      (
        cdr
        ( counter-from-1)))))