antes40 <- trapalhoes$ano.nasc < 1940
antes40