#!/usr/bin/env racket
#lang racket
; vim:syntax=racket

(require "iputil.rkt")

;; Str [Listof Peer] ->
;; Router main
(define (run-router asn peers)
  (displayln asn)
  (map displayln peers)
  (void))

(module+ main
    (command-line
     #:program "router"
     #:args
     (asn . peers)
     ;; Run the router
     (run-router asn (map string->peer peers))))