method tbl(@data, @headers) is export {
		my $ax = "";
		$ax ~= "<table>\n";
		$ax ~="\t<tr>\n";
		for @headers -> $header {
			$ax ~= "\t\t<th>{$header}</th>\n";
		}
		$ax ~="\t</tr>\n";
		for @data -> %row {
			$ax ~="\t<tr>\n";
			for %row.kv -> $name, $value {
				$ax ~= "\t\t<td>{$value}</td>\n";
			}
			$ax ~="\t</tr>\n";
		}
		$ax ~= "</table>\n";
		return $ax;
	}