p14:{
i::,[;,"ORE"]@{*|*|x}'p::{+0N 2#^[;,""]@" "\x^",=>"}'0:"i/14"
m::{@[&#i;i?y;:;@[-.'x;-1+#x;*;-1]]}/'p
fr::*m@i?,"FUEL"
f::({$[~#n:&0>-1_x;-*|x;o x++/r*-_-'a|-a:(`f$x n)%|/'r:m n]}@fr*)
g::{$[1000000000000.0<a:f`j$x+1;x;o(x+1)|_(x+1)*1000000000000.0%a]}
(f 1;g 1)}
\t:1000 p14[]