#include pps/lrblib.tc
#include pps/library.tc

// graph.tc - 1/14/23 - lrb

asterisk int y [
 while y [
  putchar '*'
  y = y - 1
  ]
 ]

main [
 printf "%cgraph.tc - lrb - 1/16/23%c",10,10
 int foo(100),bar(100),v(0)
 int baz(10)
 char pair(500)
 int pairs,wpairs
 readfile "graph.inp.txt",pair,500
 pairs = split foo,pair," "
 while wpairs < pairs [
  strcpy bar,foo(wpairs)
  strcat bar,","
  split baz,bar,","
  pl " "
  atoi baz(0),v
  pn v(0)
  putchar ' '
  atoi baz(1),v
  asterisk v(0)
  printf " (%d)",v(0)
  wpairs = wpairs+1
  ]
  pl " "
 ]