p6.p6

#!/usr/bin/env perl6

use nqp;
my $res := nqp::list;
my $lines := nqp::split("\n", 'foo.txt'.IO.slurp);
nqp::pop($lines);
my int $e = nqp::elems($lines);
my int $i = -1;
nqp::while(
  nqp::islt_i(++$i, $e),
  nqp::stmts(
    (my $l := nqp::split(' # ',  nqp::atpos($lines, $i))),
    nqp::bindpos($res, nqp::atpos($l,0)-1, nqp::split(' ', nqp::atpos($l,1)))));

say nqp::elems($res);
say now - INIT now;