Verifica se é uma subsequencia
subsequencia(x, y: Lista[Inteiro]): Logico =
se y == [] entao verdadeiro
senaose x == [] entao falso
senaose x.cabeça == y.cabeça entao subsequencia(x.cauda, y.cauda)
senao subsequencia(x.cauda, y)