let lapply l s = Lapply (l, s)