22 -spec put(A, fun((A) -> boolean())) ->
30 -spec get(t(A), Default :: A) ->
32 get({some, X}, _) -> X;
35 -spec map(t(A), fun((A) -> (B))) ->
37 map({some, X}, F) -> {some, F(X)};
38 map(none , _) -> none.
40 -spec iter(t(A), fun((A) -> (ok))) ->
42 iter({some, X}, F) -> ok = F(X);