i:0:"i/10"
s:*'&"S"=i
f:{
 (p;c):x
 f:i. c
 $[|/"-|"=f;n:c-p;]
 $[|/"L7"=f;n:|c-p;]
 $[|/"JF"=f;n:|p-c;]
 $["S"=f;n:0;]
 (c;c+n)}
-2!#r:f\(0;0 1)+\:s
+/+/'{(^x)&0(~=)\"|"=x:"|"/"FJ"\"|"/"L7"\x^"-"}'.[;s;:;"L"]`c$32|i*(0*i).[;;+;1]/*'r