gistfile1.hs

set_prev_next [t] -> [(t, t, t)] # (value, prev, next)

set_prev_next xs = set_prev nil xs

set_prev p x:xs = (x, p, next_of xs) : set_prev x xs
set_prev p [] = []

next_of x:xs = x
next_of [] = nil