Pascal ftw (incompleto)