{
    local $, = "\t";
    print +(split)[1,5], $/ while <DATA>;
}