begin
!((down (N1 dia (N1 ^ p1) )) --> p1)
end