my ($p, $d1, $d2) = split ' ', <>;