#1.2

f([],0).
f([H|T],S):- f(T,S1), g([H|T],S, S1).

g([H|T],S,S1):- H<S1,!,S is H+S1.
g([_|T],S,S1):- S is S1 + 2.


#1.4

# 111
# 112
# 121
# 122
# 211
# 212
# 221
# 222

#2