昔書いたPascalっぽいなにか。途中で飽きる