#! /usr/bin/dc
[lip1-si0li>L]sL10silLx
[lip1+si10li<L]sL0silLx