Solution for Original Tutorial 1

define($DEV ath0)

FromDevice($DEV)
 -> c :: Classifier(12/0800, 12/0806 20/0002)
 -> CheckIPHeader(14)
 -> IPMirror
 -> StripToNetworkHeader
 -> GetIPAddress(16) // Paint the destination IP address
 -> arpq :: ARPQuerier($DEV)
 -> IPPrint
 -> q :: Queue
 -> ToDevice($DEV)

arpq[1] -> q;
c[1] -> [1] arpq;