Explosive Arrows

summon FallingSand ~ ~2 ~ {Block:redstone_block,Time:1,Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:fill ~-1 ~-12 ~ ~-1 ~1 ~ redstone_block},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:fill ~-1 ~-13 ~ ~ ~2 ~ air},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:summon FallingSand ~3 ~ ~-3 {Block:redstone_block,Time:1}},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-11 ~-3 command_block 0 destroy {Command:
setblock ~ ~ ~6 redstone_block}},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-9 ~-1 command_block 0 destroy {Command:
kill @e[type=Arrow]}},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-9 ~-1 command_block 0 destroy {Command:
execute @e[type=Arrow] ~ ~ ~ /summon PrimedTnt ~ ~ ~}},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-8 ~ unpowered_repeater},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-7 ~1 unpowered_comparator},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-6 ~2 command_block 0 destroy {Command:
testfor @e[type=Arrow] {inGround:1b}}},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-4 ~3 command_block 0 destroy {Command:
setblock ~ ~-1 ~ redstone_block}},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-4 ~3 redstone_block},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:setblock ~3 ~-4 ~3 command_block 0 destroy {Command:
setblock ~ ~1 ~ air}},Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:fill ~3 ~-3 ~-3 ~3 ~-3 ~2 stone},Riding:
{id:FallingSand,Block:redstone_block,Time:1,Riding:
{id:FallingSand,Block:command_block,Time:1,TileEntityData:{Command:gamerule commandBlockOutput false}}}}}}}}}}}}}}}}}