sample.frt for forth