1*3aa99676SStefan Eßer#! /usr/bin/dc 2*3aa99676SStefan Eßer[lb1+dsb*plb50>x]sx 3*3aa99676SStefan Eßer0sb1 4*3aa99676SStefan Eßerlxx 5