> json<-listfiles[1]
> temp<-fromJSON(json)
> tail( sapply( temp$matches,  function (z) sapply(z$goalHome, function (x) {x$time} ) )   )
$`457`
   1    2    3    4    5    6    7 
 "7" "16" "43" "48" "85" "88" "76" 

$`458`
   1    2    3    4    5    6    7 
"67" "78" "43" "48" "85" "88" "76" 

$`459`
   1    2    3    4    5    6    7 
"81" "78" "43" "48" "85" "88" "76" 

$`460`
   1    2    3    4    5    6    7 
"52" "78" "43" "48" "85" "88" "76" 

$`461`
   1    2    3    4    5    6    7 
"27" "31" "67" "48" "85" "88" "76" 

$`462`
   1    2    3    4    5    6    7 
"61" "31" "67" "48" "85" "88" "76"