# TODO: Find faster algorithm

:import std/Combinator .
:import std/Math .

factors [[y [[[(1 <? 3) (2 ++1 (0 + (=?(4 % 1) (+2) (+0)))) 0]]] (+1) (+0)] ++(sqrt 0)]

solve [y [[[(factors 1) >? 3 1 (2 (1 + 0) ++0)]]] (+0) (+0)]

:test ((solve (+5)) =? (+28)) ([[1]])

main [solve (+500)]