1212420Sken#! /usr/bin/dc 2212420Sken[lip1-si0li>L]sL10silLx 3212420Sken[lip1+si10li<L]sL0silLx 4212420Sken