let
rec
range a b =
if
a > b
then
[]
else
a :: (range (a + 1) b)