let rec($)s?(t=s-Scanf.scanf"%n%_s%n "(-))i=5/t>0&0$i+5/t+t-5;Printf.printf"%d
"i;0$0;;-37$0