path: root/day1.k

p:*0:"day1";
v:("("=p)-(")"=p);
+/v / final floor 
1+*&-1=+\v / first time in cellar