; begin KiXgolfUDF
;
;!
Function CIF($d, $l)
Dim $, $c, $i, $j, $p, $k, $r, $t[($d^)-1],$x

	
	
	For $k = 0 to 1
		$ = @crlf
		$c='@' + join($t,'-') + '@'
		$r = $c + $
		$x = '|' + join($t,'+') + '|' + $
		For each $i in split($l,$)
			For $j = 0 to ($d^)-1
				$ = ' ' + split($i,'&')[$j] + ' '
				$p = $t[$j]
				while ($p^)<($^)
					$p = $p + '-'
				Loop
				while ($p^)>($^)
					$ = right(' '+$+' ',($p^)),' ' + $,$ + ' '
					$ = $[instr("><",substr($d,$j+1,1))]
				Loop
				$t[$j] = $p
				$r = $r + '|' + $ 
			Next
			
			$r = $r + '|'+@crlf + $x
			$x = @
			$cif = $r + $c
EndFunction

;!
;!
; end KiXgolfUDF