リストのお尻だけを除去する処理って

List.rev (List.tail (List.rev list))

でいいのかな