simplify lasagna.r