#!/usr/bin/perl -wall -00n
use strict;

END{
    @_=shift@F;
    while(@F){
        $_=shift @F;
        $_.=' '.shift@F while(length$_<=length$_[-1]&&@F);
        push@_,$_
    }
    formline(('@'.('|'x80)."\n")x@_,@_);
    print $^A
}