(defvar km 30000)
(defvar anos 4)

(write-line "Buscando pecas precisando de manutencao...")

(if (>= km 3000)
    (block oleo_true
    (write-line "")
    (write-line "-> Oleo, e filtro de oleo precisam ser trocados")
    )

    (block oleo_false
        (write-line "")
        (format t "Oleo precisara ser trocado em: ~DKM" (- 3000 km))
        (write-line "")
    )
)

(if (>= km 6000)
    (block velas_true
        (write-line "")
        (write-line "-> Velas precisam ser trocadas")
    )
    (block velas_false
        (write-line "")
        (format t "Velas precisaram serem trocadas em ~DKM" (- 6000 km))
        (write-line "")
    )
)

(if (>= km 10000)
    (block caixa_true
        (write-line "")
        (write-line "-> Caixa de direcao precisa ser trocada")
        (write-line "")
        (write-line "-> Oleo da suspencao precisa ser trocado")
        (write-line "")
        (write-line "-> Filtro de ar precisa ser trocado")
    )
    (block caixa_false
        (write-line "")
        (format t "Caixa de direcao, Oleo da suspencao e Filtro de ar precisaram ser trocados em ~DKM" (- 10000 km))
        (write-line "")
    )
)

(if (or (>= km 12000) (>= anos 5))
    (block pneu_true
        (write-line "")
        (write-line "-> Pneu precisa ser trocado")
    )
    (block pneu_false
        (write-line "")
        (format t "Pneu precisara ser trocado em ~DKM" (- 12000 km))
        (write-line "")
    )
)

(if (>= km 15000)
    (block pastilha_true
        (write-line "")
        (write-line "-> Pastilha de freio precisa ser trocada")
    )
    (block pastilha_false
        (write-line "")
        (format t "Pastilha precisara ser trocada em ~DKM" (- 15000 km))
        (write-line "")
    )
)

(if (>= km 20000)
    (block cabos_true
        (write-line "")
        (write-line "-> Cabos precisam ser trocado")
    )
    (block cabos_false
        (write-line "")
        (format t "Cabos precisaram serem trocado em ~DKM" (- 20000 km))
        (write-line "")
    )
)

(if (>= km 30000)
    (block kit_true
        (write-line "")
        (write-line "-> Kit de relacao precisa ser trocado")
    )
    (block kit_false
        (write-line "")
        (format t "Kit de relacao precisara ser trocado em ~DKM" (- 30000 km))
        (write-line "")
    )
)

(if (>= anos 2)
    (block oleoFreio_true
        (write-line "")
        (write-line "-> Oleo de freio precisa ser trocado")
    )
    (block oleoFreio_false
        (write-line "")
        (format t "Oleo de freio precisara ser trocado em ~D DIAS" (- (* 2 365) (* anos 365)))
        (write-line "")
    )
)

(if (>= anos 3)
    (block capacete_true
        (write-line "")
        (write-line "-> Capacete precisa ser trocado")
    )
    (block capacete_false
        (write-line "")
        (format t "Capacete precisara ser trocado em ~D DIAS" (- (* 3 365) (* anos 365)))
        (write-line "")
    )
)

(if (>= anos 4)
    (block bateria_true
        (write-line "")
        (write-line "-> Bateria precisa ser trocada")
    )
    (block bateria_false
        (write-line "")
        (format t "Bateira precisara ser trocada em ~D DIAS" (- (* 4 365) (* anos 365)))
        (write-line "")
    )
)