#!/usr/bin/gawk -f
# Thanks eidolon for the contribution!

BEGIN {
    ORS = "\r\n"
    adservice = "/inet/tcp/0/bitreich.org/70"
    print "/ads/random" |& adservice
    while ((adservice |& getline) > 0)
        print
    close(adservice)
}