d:+("III";"x")0:"day2";

+/{(&/x*1!x) + x _dot 2*1!x}'d / total wrapping paper

r:{2*+/2#x@<x}'d; / ribbon
b:*/'d; / bow
+/(r+b) / total ribbon