digits =: 10&#.^:_1
reverse =: |.&.digits
next =: +reverse
palindrome =: =reverse

isLychrel =: {{
	r =. 1
	for_i. i.50 do.
		if. palindrome y =. next y do.
			r =. 0
			break.
		end.
	end.
	r
}}
countBelow =: {{ +/isLychrel"0 i.y}}