>>>>-

[>
FUNC READ
[-]>[-]+[[-]>[-],[+[-----------[>[-]++++++[<------>-]<--<<[->>++++++++++<<]>>[-<<+>>]<+>]]]<]<
END
]

<<< 3 cells before
[>

now: x y 0
(copy x to right)
[->>+>+<<<]
>>>[-<<<+>>>]<<<
now: x y x

FUNC x = x less than y
  >>>[-]
  >[-] >[-]+ >[-] <<
  <<<[>>+>+<<<-]
  >>[<<+ >>-]
  <[>+ <-]+
  >>[>-]> [< <<- >[-] >>->]<+<
  <[>- [>-]> [< <<- >[-]+ >>->]<+< <-]
  <
END
now: x y (x \lt y)
[-<[<]<+>>[>]] if x is less then increment ans
<[-]<<<

] loop

< answer
.

