-- right open interval
sublist :: Int -> Int -> [a] -> [a]
sublist start end = drop start >>> take (end - start)
sublist :: Int -> Int -> [a] -> [a]
sublist start end = drop start >>> take (end - start)
sublist start end = drop start >>> take (end - start)