#!/usr/bin/perl

use strict;
use vars qw(%pTypes);
require "reslib.pl";

foreach (keys %pTypes)
{
       print $_, " " , $pTypes{$_}."\n";
}