# The common point of a Line L and a Circle C that touches it
PtLeCe:=proc(L,C): subs(solve({L,C},{x,y}),[x,y]):end: end:
subs(solve({L,C},{x,y}),[x,y]):end: end:
end: