Reduce { key, value }-entries in a Direction

import Linear exposing (Direction(..))
import Dict


Dict.fromList
    [ ( "Dies", 39 ), ( "Wonu", 22 ), ( "Eorfe", 18 ) ]
    |> Dict.Linear.foldFrom [] Up (\user -> (::) user.key)
--> [ "Wonu", "Eorfe", "Dies" ]


Dict.fromList
    [ ( "Dies", 39 ), ( "Wonu", 22 ), ( "Eorfe", 18 ) ]
    |> Dict.Linear.foldFrom [] Down (\user -> (::) user.key)
--> [ "Dies", "Eorfe", "Wonu" ]