#!perl -p0
for$i((!/
/,"@-")x y;#;!;){push@$i,'.'x$i;y;$%~"/)x;-#||+;while s;!@$i[-+|]|[-+|]@$i!;$&^($&^~$&)&($i?v2.v0 x$i:v4)x10;se}s;
 *#  \K\|;+