(display titulo_aleatorio_aka_estupido)

(define titulo_aleatorio_aka_estupido
(lambda (blog palavras parvoice inutilidade actimel)
(letrec ((enderecoaleatorio (+ parvoice inutilidade palavras actimel))
(if (null? enderecoaleatorio)
(titulo_aleatorio_aka_estupido (cdr blog) palavras (- 1912 parvoice) (sub1 inutilidade) (add1 actimel))
(begin
(* parvoice inutilidade tempo_perdido)))))))

;Procedimento auxiliar
(define tempo_perdido
(lambda (palavras quantidade)
(* palavras quantidade)))

P.S: Futuramente prometemos codigos que funcionem!