Distance Walked in KM

summon FallingSand ~ ~1 ~ {Block:stone,Time:1,Passengers:[{id:FallingSand,Block:redstone_block,Time:1,Passengers:[{id:FallingSand,Block:activator_rail,Time:1,Passengers:[
{id:MinecartCommandBlock,Command:gamerule commandBlockOutput false},
{id:MinecartCommandBlock,Command:"/scoreboard objectives add STCMWalked stat.walkOneCm"},
{id:MinecartCommandBlock,Command:"/scoreboard objectives add STKMWalked dummy Kilometers_Walked"},
{id:MinecartCommandBlock,Command:"/scoreboard objectives add STCMSprinted stat.sprintOneCm"},
{id:MinecartCommandBlock,Command:"/scoreboard objectives add STCMSneaked stat.crouchOneCm"},
{id:MinecartCommandBlock,Command:"/scoreboard players set 100000 STCMWalked 100000"},
{id:MinecartCommandBlock,Command:"/scoreboard objectives setdisplay list STKMWalked"},
{id:MinecartCommandBlock,Command:setblock ~6 1 ~ chain_command_block 5 replace {auto:1,Command:"/execute @a ~ ~ ~ /scoreboard players operation @p STKMWalked /= 100000 STCMWalked"}},
{id:MinecartCommandBlock,Command:setblock ~5 1 ~ chain_command_block 5 replace {auto:1,Command:"/execute @a ~ ~ ~ /scoreboard players operation @p STKMWalked += @p STCMSneaked"}},
{id:MinecartCommandBlock,Command:setblock ~4 1 ~ chain_command_block 5 replace {auto:1,Command:"/execute @a ~ ~ ~ /scoreboard players operation @p STKMWalked += @p STCMSprinted"}},
{id:MinecartCommandBlock,Command:setblock ~3 1 ~ command_block 5 replace {Command:"/execute @a ~ ~ ~ /scoreboard players operation @p STKMWalked = @p STCMWalked"}},
{id:MinecartCommandBlock,Command:setblock ~2 1 ~ unpowered_comparator 1},
{id:MinecartCommandBlock,Command:setblock ~1 1 ~ hopper 4},
{id:MinecartCommandBlock,Command:setblock ~ 1 ~ hopper 5 replace {Items:[{id:minecraft:stone,Count:1}]}},
{id:MinecartCommandBlock,Command:setblock ~ ~ ~1 command_block 0 replace {Command:fill ~ ~-3 ~-1 ~ ~ ~ air}},
{id:MinecartCommandBlock,Command:setblock ~ ~-1 ~1 redstone_block},
{id:MinecartCommandBlock,Command:kill @e[type=MinecartCommandBlock,r=1]}]}]}]}