; begin Linear Pa hinko 
; 
;! 
Function a($)
dim $l,$i,$r
	$l=0^$
	$r=split("_  . 1 \1 11 |/ |0 || 22 1/ 11 \| 0| 0|1 21 1|0 12 / 1 \ 1 222 2 | 1")
	while $i<26
		$=join(split($,$r[$i]),$r[$i+1])
		$i=$i+2
	Loop
	;? $
	while $
		$a=$a+100/($ mod 10)
		$=left($,~)
	loop
	$a=$a/$l
EndFunction
;! 
;! 
; end Linear Pa hinko