@options;
@figure;
  O1 = point( 1.77 , 1 )  { rouge };
  O2 = point( -3.47 , -2.47 )  { vert };
  cerayO14 = cerclerayon( O1 , 4 )  { rouge };
  cerayO22 = cerclerayon( O2 , 2 )  { vert };
  dO2O1 = droite( O2 , O1 )  { sansnom };
  P = pointsur( cerayO14 , 140.63 );
  sO1K = segment( O1 , P );
  d = perpendiculaire( P , sO1K )  { noir };
  K = intersection( d , dO2O1 );