#Programa que triplica o numero 3
# considerar onde tem `$` como vazio pq nao encontrei no teclado o bolinha cortada 

(R;$, 3)	
((se zero então $ senão (sub;R;ad;ad;ad));$, 3)
((sub;R;ad;ad;ad);$, 3)	
(sub;(R;ad;ad;ad);$, 3)
((R;ad;ad;ad);$, 2)
(R;(ad;ad;ad);$, 2)
((se zero então $ senão (sub;R;ad;ad;ad));(ad;ad;ad);$, 2)
((sub;R;ad;ad;ad);(ad;ad;ad);$, 2)
(sub;(R;ad;ad;ad);(ad;ad;ad);$, 2)
((R;ad;ad;ad);(ad;ad;ad);$, 1)
(R;(ad;ad;ad);(ad;ad;ad);$, 1)
((se zero então $ senão(sub;R;ad;ad;ad));(ad;ad;ad);(ad;ad;ad);$, 1)
((sub;R;ad;ad;ad));(ad;ad;ad);(ad;ad;ad);$, 1)
(sub;(R;ad;ad;ad); (ad;ad;ad);(ad;ad;ad);$, 1)
((R;ad;ad;ad);(ad;ad;ad);(ad;ad;ad);$, 0) 
(R;(ad;ad;ad);(ad;ad;ad);(ad;ad;ad);$, 0)
((se zero então $ senão (sub;R;ad;ad;ad));(ad;ad;ad);(ad;ad;ad);(ad;ad;ad);$, 0)
($;(ad;ad;ad);(ad;ad;ad);(ad;ad;ad);$, 0)
((ad;ad;ad);(ad;ad;ad);(ad;ad;ad);$, 0) 	
(ad;(ad;ad;(ad;ad;ad);(ad;ad;ad);$), 0)
((ad;ad;(ad;ad;ad);(ad;ad;ad);$), 1)
(ad;(ad;(ad;ad;ad);(ad;ad;ad);$), 1)
((ad;(ad;ad;ad);(ad;ad;ad);$), 2)
(ad;((ad;ad;ad);(ad;ad;ad);$), 2)
(((ad;ad;ad);(ad;ad;ad);$), 3)
(ad;(ad;ad;(ad;ad;ad);$), 3)
((ad;ad;(ad;ad;ad);$), 4)
(ad;(ad;(ad;ad;ad);$), 4)
((ad;(ad;ad;ad);$), 5)
(ad;((ad;ad;ad);$), 5)
(((ad;ad;ad);$), 6)
(ad;(ad;ad;$), 6)
((ad;ad;$), 7)
(ad;(ad;$), 7)
((ad;$), 8)
(ad;($), 8)
(($), 9)
($, 9)