############################################################################
#
#	Name:	kross.icn
#
#	Title:	Diagram character intersections of strings
#
#	Author:	Ralph E. Griswold
#
#	Date:	May 9, 1989
#
############################################################################
#
#     This program procedure accepts pairs of strings on successive lines.
#  It diagrams all the intersections of the two strings in a common
#  character.
#
############################################################################

procedure main()
   local line, j
   while line := read() do {
      kross(line,read())
      }
end

procedure kross(s1,s2)
   local j, k
   every j := upto(s2,s1) do
      every k := upto(s1[j],s2) do
         xprint(s1,s2,j,k)
end

procedure xprint(s1,s2,j,k)
   write()
   every write(right(s2[1 to k-1],j))
   write(s1)
   every write(right(s2[k+1 to *s2],j))
end