#include <string.h>
char *fizz(int n){ return n % 3 ? "" : "Fizz"; }
char *buzz(int n){ return n % 5 ? "" : "Buzz"; }
char *fizzbuzz(char *buf, int n){
  strcpy(buf, fizz(n));
  strcat(buf, buzz(n));
  if (!strlen(buf)) sprintf(buf, "%d", n);
  return buf;
}
#include <stdio.h>
void main(){
  int i;
  char buf[12];
  for (i = 1; i <= 30; i++){
    printf("%s\n", fizzbuzz(buf, i));
  }
}

(defun convertir (lista)
	(cond 
		((eq (cadar lista) '++) (cons (list (caar lista) '+ 1) (cdr lista)))
		((eq (cadar lista) '--) (cons (list (caar lista) '- 1) (cdr lista)))
		((eq (cadar lista) '+=) (cons (append (list (caar lista) '= (caar lista) '+) (cddar lista)) (cdr lista)))
		((eq (cadar lista) '-=) (cons (append (list (caar lista) '= (caar lista) '-) (cddar lista)) (cdr lista)))
		((eq (cadar lista) '*=) (cons (append (list (caar lista) '= (caar lista) '*) (cddar lista)) (cdr lista)))
		((eq (cadar lista) '/=) (cons (append (list (caar lista) '= (caar lista) '/) (cddar lista)) (cdr lista)))
		((eq (caar lista) '++)  (cons (list (cadar lista) '+ 1) (cdr lista)))
		
	
	)	
)